((scheme-mode
  (eval . (put 'define-record-type 'scheme-indent-function 2))))
